home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
COMMUNIC
/
RFDMAILN.ZIP
/
CSERVE_A.SCR
< prev
next >
Wrap
Text File
|
1993-09-09
|
14KB
|
451 lines
;------------------------------------------------------
;
;CSERV.SCR --- The script file for CompuServe
;
;------------------------------------------------------
;
; We begin with the format specifiers to which allow
;the script to identify where the MailId, RealName,
;and Subject texts are in a newly downloaded letter.
;
Format
Reply to: $SUBJECT$\n
Subject: $SUBJECT$\n
Subj: $SUBJECT$\n
From: [$UID$] $NAME$\n
From: $NAME$[$UID$]
From: $UID$\n
Endformat
;------------------------------------------------------
Begin START
Caption 'connected'
Control C
When 'User ID: ' Goto USERNAME
Timeout 3 Goto START
End
;------------------------------------------------------
Begin USERNAME
Transmit $USERNAME
Cr
When 'Password:' Goto PASSWORD
When 'User ID: ' Goto USERNAME
Timeout 20 Goto NO_LOGIN
End
;------------------------------------------------------
Begin PASSWORD
Transmit $PASSWORD
Cr
When 'Password:' Goto PASSWORD
When 'User ID: ' Goto USERNAME
When 'CompuServe Information Service' Goto LOGGED_IN
Timeout 20 Goto NO_LOGIN
End
;------------------------------------------------------
Begin LOGGED_IN
Caption 'logged in'
When 'CompuServe Mail Message Menu' Goto MESSAGE_MENU
When 'New This Week' Goto NEW_MENU
When 'Enter choice !' Goto JUMP_TO_MAIL
When 'Enter choice number !' Goto JUMP_TO_MAIL
Timeout 30 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
Begin NEW_MENU
When 'Enter choice !' Goto JUMP_TO_MAIL
Timeout 20 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
Begin MESSAGE_MENU
Caption 'You have mail'
If FETCHING Then FETCH_FROM_MESSAGE_MENU
When 'M for CompuServe Mail' Goto JUMP_TO_MAIL
Timeout 15 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
Begin FETCH_FROM_MESSAGE_MENU
When 'Enter choice !' Goto JUMP_TO_MAIL
When 'Enter choice number !' Goto JUMP_TO_MAIL
When 'M for CompuServe Mail' Goto REQUEST_DOWNLOAD
Timeout 15 Goto REQUEST_DOWNLOAD
End
;------------------------------------------------------
Begin FETCH_FROM_MAIN_MENU
When 'Enter choice !' Goto REQUEST_DOWNLOAD
Timeout 15 Goto REQUEST_DOWNLOAD
End
;------------------------------------------------------
Begin REQUEST_DOWNLOAD
Caption 'Fetching Mail'
Transmit 'download/PRO:CAPTURE 1'
Cr
When 'capture buffer...' Goto DOWNLD_LETTER
When 'Enter choice number !' Goto JUMP_TO_MAIL
Timeout 5 Goto DOWNLD_LETTER
End
;------------------------------------------------------
Begin DOWNLD_LETTER
Download ASCII 'Capture buffer closed' Then DOWNLD_SUCCESS Else GIVE_UP
End
;------------------------------------------------------
Begin DOWNLD_SUCCESS
Confirm LETTER.RECEIVED Successful
Caption 'Letter Received'
Cr
When 'Message Menu' Goto WAIT_DELETE_LETTER
When 'Press <CR>!' Goto SEND_DOWNLD_CR
When 'Mail Main Menu' Goto WAIT_DELETE_LETTER
Timeout 10 Goto SEND_DOWNLD_CR
End
;------------------------------------------------------
Begin WAIT_DOWNLD_CR
When 'Press <CR>!' Goto SEND_DOWNLD_CR
Timeout 5 Goto SEND_DOWNLD_CR
End
;------------------------------------------------------
Begin SEND_DOWNLD_CR
Cr
When 'Press <CR>!' Goto SEND_DOWNLD_CR
When 'Mail Main Menu' Goto WAIT_DELETE_LETTER
When 'for CompuServe Mail main menu' Goto DELETE_LETTER
Timeout 20 Goto RETRY_DELETE_LETTER
End
;------------------------------------------------------
Begin WAIT_DELETE_LETTER
When 'Enter choice !' Goto DELETE_LETTER
When 'for CompuServe Mail main menu' Goto DELETE_LETTER
Timeout 15 Goto RETRY_DELETE_LETTER
End
;------------------------------------------------------
Begin RETRY_DELETE_LETTER
Transmit 'go email'
Cr
When 'Mail Main Menu' Goto WAIT_DELETE_LETTER
When 'Enter choice !' Goto DELETE_LETTER
Timeout 15 Goto GIVE_UP
End
;------------------------------------------------------
Begin DELETE_LETTER
Caption 'Deleting Letter'
Transmit 'delete 1'
Cr
When 'Press <CR>!' Goto SEND_DELETE_CR
When 'M for CompuServe Mail' Goto JUMP_TO_MAIL
Timeout 10 Goto SEND_DELETE_CR
End
;------------------------------------------------------
Begin SEND_DELETE_CR
Cr
When 'M for CompuServe Mail' Goto JUMP_TO_MAIL
When 'Mail Main Menu' Goto MAIL_MAIN_MENU
When 'Enter choice !' Goto JUMP_TO_MAIL
Timeout 10 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
Begin JUMP_TO_MAIL
Transmit 'go email'
Cr
When 'Mail Message Menu' Goto MESSAGE_MENU
When 'additional information (Y or N)!' Goto ANSWER_NO
When 'Mail Main Menu' Goto MAIL_MAIN_MENU
When 'Enter choice !' Goto JUMP_TO_MAIL
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin ANSWER_NO
Transmit 'N'
Cr
When 'Mail Message Menu' Goto MESSAGE_MENU
When 'additional information (Y or N)!' Goto ANSWER_NO
When 'Mail Main Menu' Goto MAIL_MAIN_MENU
When 'Enter choice !' Goto JUMP_TO_MAIL
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin MAIL_MAIN_MENU
Caption 'Mail Area'
When '*** No mail waiting ***' Goto NO_MAIL_WAITING
When 'letters waiting' Goto MAIL_WAITING
When 'letter waiting' Goto MAIL_WAITING
When 'message pending' Goto MAIL_WAITING
When 'messages pending' Goto MAIL_WAITING
When 'Enter choice !' Goto JUMP_TO_MAIL
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin MAIL_WAITING
If FETCHING Then FETCH_FROM_MAIN_MENU
If MORE_LETTERS Then SEND_MAIL
When 'Enter choice !' Goto LOG_OFF
Timeout 20 Goto LOG_OFF
End
;------------------------------------------------------
Begin NO_MAIL_WAITING
Caption 'No Mail'
If MORE_LETTERS Then SEND_MAIL
When 'Enter choice !' Goto LOG_OFF
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin SEND_MAIL
When 'Enter choice !' Goto REQUEST_UPLOAD_LETTER
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin REQUEST_UPLOAD_LETTER
Transmit 'UPLOAD/TYP:ASC/PRO:CAPTURE'
Cr
When 'Enter choice !' Goto REQUEST_UPLOAD_LETTER
When 'prompted for each line (Y/N)?' Goto CONFIRM_UPLOAD
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin CONFIRM_UPLOAD
Transmit 'N'
Cr
When 'prompted for each line (Y/N)?' Goto CONFIRM_UPLOAD
When 'the end of your data.' Goto BEGIN_LETTER_UPLOAD
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
;This is where we upload the letter. Note that
;there are two states we can transfer to:
;UPLOAD_SUCCESS if it work, UPLOAD_FAILURE if it didn't
;
Begin BEGIN_LETTER_UPLOAD
NewLetter
Upload ASCII Then UPLOAD_SUCCESS Else GIVE_UP
End
;------------------------------------------------------
Begin UPLOAD_SUCCESS
Caption 'Letter Uploaded'
Control Z
When '*** File Transfer Completed! ***' Goto END_LETTER_UPLOAD
When 'Press <CR>!' Goto REQUEST_SEND_MENU
When 'CompuServe Mail Send Menu' Goto MAIL_SEND_MENU
Timeout 10 Goto REQUEST_SEND_MENU
End
;------------------------------------------------------
Begin END_LETTER_UPLOAD
When 'Press <CR>!' Goto REQUEST_SEND_MENU
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin REQUEST_SEND_MENU
Cr
When 'Press <CR>!' Goto REQUEST_SEND_MENU
When 'CompuServe Mail Send Menu' Goto MAIL_SEND_MENU
When 'For current message' Goto MAIL_SEND_MENU
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin MAIL_SEND_MENU
When 'Enter choice !' Goto REQUEST_LETTER_SEND
Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin REQUEST_LETTER_SEND
Transmit '1'
Cr
When 'CompuServe Mail Send Menu' Goto MAIL_SEND_MENU
When 'Enter ch